DATABASE MATERIALI

c3e12eb1-4689-40ed-b0f3-fc8065aa6fc0 38 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

T.process 1000 °C * :

L 1 mm * :

T.atm 25 °C * :

ID.steel 2000 mm * :

thk.shell 8 mm * :

h.convection 30 W m 2^K * / * :

=1 to run the WHILE loop SWITCH 1 :

MAXIMUM NUMBER OF "WHILE" ITERATIONS... countlimit 3 :

DATABASE MATERIALI

MATERIALI ATLAS 60 MU 0 °C * 1000 °C * 21 mat 1.9 W m K * / * 1.73 W m K * / * 21 mat GD 23C 400 °C * 1000 °C * 21 mat 0.15 W m K * / * 0.24 W m K * / * 21 mat GD 18C 200 °C * 800 °C * 21 mat 0.10 kcal m hr * K * / * 0.18 kcal m hr * K * / * 21 mat RockWool 200 °C * 1000 °C * 21 mat 0.051 kcal m hr * K * / * 0.29 kcal m hr * K * / * 21 mat 43 mat :

FUNCTIONS

Determina conducibilità termica a partire da conducibilità note, per un materiale T Materiale λ.T Materiale 12 el K / Materiale 13 el W m K * / / T K / linterp W m K * / * :

T.1 T.2 Materiale λ.T_avg T.1 Materiale λ.T T.2 Materiale λ.T + 2 / :

NOT USED V.1 V.2 delta_quad V V.1 V.2 - : i 1 V rows range V.delta i el V i el 2^: for V.delta i el i 1 V rows sum 31 line :

r.out r.in λ R r.out r.in / ln 2 π * L * λ * / :

INPUT MATERIALI

Selected_Mat

MAT 1 el Selected_Mat :

thk 1 el 115 mm * :

Selected_Mat

MAT 2 el Selected_Mat :

thk 2 el 115 mm * :

Selected_Mat

MAT 3 el Selected_Mat :

thk 3 el 115 mm * :

Selected_Mat

MAT 4 el Selected_Mat :

thk 4 el 0 mm * :

thk 5 el thk.shell : 0.115 m * 0.115 m * 0.115 m * 0 0.008 m * 51 mat

MAT 5 el STEEL 0 °C * 100 °C * 21 mat 50 W m K * / * 50 W m K * / * 21 mat 13 mat :

<<<SISTEMARE!?!?

Selected_Mat

MAT 6 el Selected_Mat :

thk 6 el 100 mm * :

Selected_Mat

MAT 7 el Selected_Mat :

thk 7 el 0 mm * :

thk 115 mm * 115 mm * 115 mm * 0 mm * 8 mm * 100 mm * 0 mm * 71 mat : 0.115 m * 0.115 m * 0.115 m * 0 0.008 m * 0.1 m * 071 mat

num_righe MAT rows : 7

COSTRUZIONE VETTORI DEI RAGGI INTERNI ed ESTERNI

R.int 1 el ID.steel 2 / thk j el j 14 sum - : mm 65511 mat

thk 0.115 m * 0.115 m * 0.115 m * 0 0.008 m * 0.1 m * 071 mat

R.int 0.655 m * 11 mat

i 27 range R.int i el R.int i 1 - el thk i 1 - el + : for

i 17 range R.ext i el R.int i el thk i el + : for

R.int 0.655 m * 0.77 m * 0.885 m * m m 1.008 m * 1.108 m * 71 mat

R.ext 0.77 m * 0.885 m * m m 1.008 m * 1.108 m * 1.108 m * 71 mat

<<<--- FORSE NON SERVE??

COSTRUZIONE VETTORE DI PRIMO TENTATIVO:

i 1 num_righe range T.int_trial i el T.process i 1 - (T.process T.atm - num_righe / (* - : for

T.int_trial °C 1000 860.7143 721.4286 582.1429 442.8571 303.5714 164.2857 71 mat

T.int T.int_trial : 1273.15 K * 1133.8643 K * 994.5786 K * 855.2929 K * 716.0071 K * 576.7214 K * 437.4357 K * 71 mat

T.ext_trial T.atm :

T.ext T.ext_trial : 298.15 K *

count 0 :

R.conv_PRO 1 h.convection 2 π * R.int 1 el * L * (* / : R.conv_atm 1 h.convection 2 π * R.ext 7 el * L * (* / : 21 mat 8.0995 K s 3^* kg m 2^* / * 4.7881 K s 3^* kg m 2^* / * 21 mat

K S * A 2^/ K s 3^* kg m 2^* / ≡

R.conv_PRO 8.0995 K S * A 2^/ *

R.conv_PRO R.conv_atm 21 mat 8.0995 K s 3^* kg m 2^* / * 4.7881 K s 3^* kg m 2^* / * 21 mat

1 (kelvin * siemens) / (ampere^2) = 1 m-2 kg-1 s3 K

1 (K * (s^3)) / (kg * (m^2)) = 1000 m-1 kg-1 s3

R.conv_atm 4.7881 K S * A 2^/ *

i 1 num_righe 1 - (range λ i el T.int i el MAT i el λ.T T.int i 1 + el MAT i el λ.T + 2 / : for λ num_righe el T.int num_righe el T.ext MAT num_righe el λ.T_avg : 21 line

kg m * K s 3^* / N K s * / ≡

λ transpose 1.7418 kg m * K s 3^* / * 0.2087 kg m * K s 3^* / * 0.1864 kg m * K s 3^* / * 1.8129 kg m * K s 3^* / * 14 mat

λ num_righe el 0.0227 N K s * / *

λ transpose λ num_righe el 21 mat 1.7418 kg m * K s 3^* / * 0.2087 kg m * K s 3^* / * 0.1864 kg m * K s 3^* / * 1.8129 kg m * K s 3^* / * 50 kg m * K s 3^* / * 0.0711 kg m * K s 3^* / * 0.0227 kg m * K s 3^* / * 17 mat 0.0227 kg m * K s 3^* / * 21 mat

i 1 num_righe range R i el R.ext i el R.int i el λ i el R : for R.tot R j el j 1 num_righe sum R.conv_PRO + R.conv_atm + : 21 line

R.tot 449.9288 K S * A 2^/ *

Q T.process T.atm - (R.tot / : 2.167 W *

T.ext_new T.atm Q R.conv_atm * + : 308.5258 K *

T.int_new num_righe el T.ext_new Q R num_righe el * + :

i 1 num_righe 1 - (range T.int_new num_righe i - el 1 T.int_new num_righe i - 1 + el (* Q R num_righe i - el * + : for

T.int T.int_new : 1255.5983 K * 1223.5702 K * 993.4946 K * 767.3993 K * 767.3993 K * 767.3444 K * 308.5258 K * 71 mat

T.ext T.ext_new : 308.5258 K *

count countlimit < (SWITCH 1 ≡ (& Calcola conducibilità termiche in ogni materiale in base al vettore temperature i 1 num_righe 1 - (range λ i el T.int i el MAT i el λ.T T.int i 1 + el MAT i el λ.T + 2 / : for λ num_righe el T.int num_righe el T.ext MAT num_righe el λ.T_avg : 21 line Calcola resistenza termica totale i 1 num_righe range R i el R.ext i el R.int i el λ i el R : for R.tot R j el j 1 num_righe sum R.conv_PRO + R.conv_atm + : 21 line Q T.process T.atm - (R.tot / : vuoto count count 1 + : AGGIORNA VETTORE TEMPERATURE T.ext_new T.atm Q R.conv_atm * + : T.int_new num_righe el T.ext_new Q R num_righe el * + : i 1 num_righe 1 - (range T.int_new num_righe i - el T.int_new num_righe i - 1 + el Q R num_righe i - el * + : for vuoto T.int T.int_new : T.ext T.ext_new : λ Clear R Clear T.ext_new Clear T.int_new Clear 181 line while

count 0

COSTRUIRE VETTORE NOMI

i 1 num_righe range TAG_VECTOR i el MAT i el 11 el : for

Q 2.167 W *

T.int_trial °C 1000 860.71 721.43 582.14 442.86 303.57 164.29 71 mat

TAG_VECTOR ATLAS 60 MU GD 23C GD 18C ATLAS 60 MU STEEL RockWool RockWool 71 mat

thk mm 11511511508100071 mat

T.int °C 982.4483 950.4202 720.3446 494.2493 494.2493 494.1944 35.3758 71 mat

T.ext °C 35.3758

GRAPH R.int mm / T.int 0 °C * - augment : 655 982.4483 K * 770 950.4202 K * 885 720.3446 K * 1000 494.2493 K * 1000 494.2493 K * 1008 494.1944 K * 1108 35.3758 K * 72 mat

GRAPH